home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / mar93.zip / TIP852.LSP < prev    next >
Text File  |  1993-02-13  |  856b  |  35 lines
  1. ; TIP852: BRKFST.LSP (c)1993, James E. Towle
  2. ;;   This LISP is for multiple breaks with the F, (FIRST), option
  3. ;;         it has been working on AutoCAD 10 & 12 for me.
  4. ;;   BY: JAMES E. TOWLE
  5. ;;; === NWERR.LSP === Error handler
  6.  
  7. (DEFUN NWERR (s)
  8.    (if (/= s "Function cancelled")
  9.       (princ (strcat "\nError:" s))
  10.    )
  11.    (setq *error* olderr)
  12.    (PRINC)
  13. )
  14.  
  15. ;;; === BRKFST.LSP ===
  16.  
  17. (defun C:BRKFST ()
  18.      (setq olderr *error*
  19.            *error* nwerr
  20.            chm     0)
  21.      (setvar "cmdecho" 0)
  22.      (setq ent1 (entsel "\nPick Line To Break: ")
  23.            ent (car ent1)
  24.      )
  25.      (redraw ent 3)
  26.      (setq pt2 (getpoint "\nFirst point: ")
  27.            pt3 (getpoint "\nSecond Point: ")
  28.      )
  29.      (command "BREAK" ent1 "F" pt2 pt3)
  30.      (setvar "cmdecho" 1)
  31.      (setq *error* olderr)
  32.      (princ)
  33.      );END
  34. 
  35.